home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
program
/
gcc
/
libmat.lha
/
src
/
I.cc
< prev
next >
Wrap
C/C++ Source or Header
|
1980-01-01
|
214b
|
17 lines
// MATRIX LIB
// TOMMY JOHANSSON 1995
#include "matrix.h"
Matrix I(int n)
{
Matrix A(n);
int i,j;
for(i=1;i<=n;i++)
for(j=1;j<=n;j++)
{
A.koff[i][j]=0;
if(i==j) A.koff[i][j]=1;
}
return(A);
}